﻿Imports Microsoft.VisualBasic.PowerPacks.Printing

Public Class frmEvaluaciones

    Private Sub frmEvaluaciones_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dstRecord As New DataSet
        dstRecord.Tables.Add("restriccion")
        mdlCRUD.loadRecord(dstRecord, "restriccion", "restriccion", "", Nothing)


        Me.cbxlRestriccion.DataSource = dstRecord.Tables("restriccion")
        Me.cbxlRestriccion.DisplayMember = dstRecord.Tables("restriccion").Columns(1).Caption.ToString
        Me.cbxlRestriccion.ValueMember = dstRecord.Tables("restriccion").Columns(0).Caption.ToString

        dstRecord.Tables.Add("estadosaprovacionexamenes")
        mdlCRUD.loadRecord(dstRecord, "estadosaprovacionexamenes", "estadosaprovacionexamenes", "", Nothing)


        Me.cblResultado.DataSource = dstRecord.Tables("estadosaprovacionexamenes")
        Me.cblResultado.DisplayMember = dstRecord.Tables("estadosaprovacionexamenes").Columns(1).Caption.ToString
        Me.cblResultado.ValueMember = dstRecord.Tables("estadosaprovacionexamenes").Columns(0).Caption.ToString
        If mdlIntegracion.lngIdProceso <> 0 And mdlIntegracion.intIdaspirante <> 0 Then

            Dim arrRsAspirante As Array
            Dim arrRsDatoaspirante As Array
            Dim idDepartamento As String, nmDepartamento As String, dtFecha As Date

            dstRecord.Tables.Add("Persona")
            dstRecord.Tables.Add("Aspirante")
            dstRecord.Tables.Add("Procesotramite")

            'Datos Generales del aspirante
            mdlCRUD.loadRecord(dstRecord, "Persona", "persona", "persona_id = '" & mdlIntegracion.intIdaspirante & "'", Nothing)

            arrRsAspirante = dstRecord.Tables("Persona").Rows(0).ItemArray.ToArray

            Me.txtNumerodocumento.Text = arrRsAspirante(1).ToString
            Me.txtTipodocumento.Text = mdlFunciones.getReferencia("tipodocumento", "tipodocumento_id", arrRsAspirante(2).ToString, 1)
            Me.txtNombre.Text = arrRsAspirante(3).ToString & " " & arrRsAspirante(4).ToString
            Me.txtApellido.Text = arrRsAspirante(5).ToString & " " & arrRsAspirante(6).ToString

            dtFecha = arrRsAspirante(7)
            Me.txtGruposanguineo.Text = mdlFunciones.getReferencia("tiposangre", "tiposangre_id", arrRsAspirante(9).ToString, 1) & mdlFunciones.getReferencia("rh", "rh_id", arrRsAspirante(10).ToString, 1)

            '0:          persona_id()
            '1:          persona_documento()
            '2:          tipodocumento_id()
            '3:          persona_prinombre()
            '4:          persona_segnombre()
            '5:          persona_priapellido()
            '6:          persona_segapellido()
            '7:          persona_fechanacimiento()
            '8:          persona_lugarnacimiento()
            '9:          tiposangre_id()
            '10:         rh_id()
            '11:         sexo_id()
            '12:         aspirante_fechaexpedicion()
            '13:         persona_lugarexpedicion()


            'Datos Basicos de registro del aspirante
            mdlCRUD.loadRecord(dstRecord, "Aspirante", "aspirante", "persona_id = '" & mdlIntegracion.intIdaspirante & "' And aspirante_numeroproceso = '" & mdlIntegracion.lngIdProceso & "'", Nothing)

            arrRsDatoaspirante = dstRecord.Tables("Aspirante").Rows(0).ItemArray.ToArray

            Me.txtFechaexamen.Text = arrRsDatoaspirante(3).ToString
            Me.txtTelefono.Text = arrRsDatoaspirante(12).ToString
            Me.txtDireccion.Text = arrRsDatoaspirante(6).ToString


            '0:          aspirante_id()
            '1:          persona_id()
            '2:          aspirante_numeroproceso()
            '3:          aspirante_fecharegistro()
            '4:          aspitante_horaregistro()
            '5:          ciudad_residencia()
            '6:          aspirante_direccion()
            '7:          aspirante_correoelectronico()
            '8:          nivelescolaridad_id()
            '9:          ocupacion_id()
            '10:         estadocivil_id()
            '11:         aspirante_movil()
            '12:         aspirante_telefono()
            '13:         aspirante_nombreacompanante()
            '14:         aspirante_telefonoacompanante()
            '15:         epsarp_id()
            '16:         aspirante_senialesparticulares()
            '17:         aspirante_observacion()


            'Datos Basicos de registro del aspirante
            mdlCRUD.loadRecord(dstRecord, "Procesotramite", "vistaprocesotramite", "aspirante_id = '" & arrRsDatoaspirante(0) & "'", Nothing)

            'Lista de Tramites
            Me.dgvTramite.DataSource = dstRecord.Tables("Procesotramite")
            Me.dgvTramite.Columns(0).Visible = False
            Me.dgvTramite.Columns(1).Visible = False
            Me.dgvTramite.Columns(2).Visible = False
            Me.dgvTramite.Columns(4).Visible = False
            Me.dgvTramite.Columns(6).Visible = False
            Me.dgvTramite.Columns(8).Visible = False
            Me.dgvTramite.Columns(10).Visible = False

            Me.dgvTramite.Columns(3).HeaderText = "Categoria"
            Me.dgvTramite.Columns(5).HeaderText = "Tramite"
            Me.dgvTramite.Columns(7).HeaderText = "Servicio"
            'Me.dgvTramite.Columns(9).HeaderText = "Objetivo"
            'Me.dgvTramite.Columns(11).HeaderText = "Estado proceso"

            Me.dgvTramite.Columns(3).Width = 100
            Me.dgvTramite.Columns(5).Width = 150
            Me.dgvTramite.Columns(7).Width = 200
            'Me.dgvTramite.Columns(9).Width = 150
            'Me.dgvTramite.Columns(11).Width = 100

            Try
                Me.pcbFoto.Image = Image.FromFile(mdlHerramientas.strRutafotografia & "\fto" & arrRsAspirante(1).ToString & "_" & arrRsDatoaspirante(2).ToString & ".jpg")
                mdlFunciones.SetImage(Me.pcbFoto)
            Catch ex As Exception
            End Try

            Try
                Me.pcbHderecha.Image = Image.FromFile(mdlHerramientas.strRutahuelladerecha & "\hder" & arrRsAspirante(1).ToString & "_" & arrRsDatoaspirante(2).ToString & ".jpg")
                mdlFunciones.SetImage(Me.pcbHderecha)
            Catch ex As Exception
            End Try

            Try
                Me.pcbHizquierda.Image = Image.FromFile(mdlHerramientas.strRutahuellaizquierda & "\hizq" & arrRsAspirante(1).ToString & "_" & arrRsDatoaspirante(2).ToString & ".jpg")
                mdlFunciones.SetImage(Me.pcbHizquierda)
            Catch ex As Exception
            End Try

            'Me.pcbFoto.Image = Image.FromFile(mdlHerramientas.strRutafotografia & "\fto" & arrRsAspirante(1).ToString & "_" & arrRsDatoaspirante(2).ToString & ".jpg")
            'SetImage(Me.pcbFoto)
        End If
    End Sub
    Private Sub frmEvaluacion_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        mdiPrincipal.tsmiRealizarprueba.Enabled = True
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'frmCertificados.save_pdfCertificado()
        Cursor.Current = Cursors.WaitCursor
        Dim pf As New PrintForm
        pf.Form = Me
        pf.PrintAction = Printing.PrintAction.PrintToPreview
        pf.Print(Me, PrintForm.PrintOption.ClientAreaOnly)

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        frmGestioncertificado.MdiParent = mdiPrincipal
        frmGestioncertificado.Show()
    End Sub
End Class